home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / web / noweb / src / awkname < prev    next >
Text File  |  1995-02-24  |  636b  |  26 lines
  1.  
  2. case $# in
  3.   1) ;;
  4.   *) echo "Usage: `basename $0` [awk|nawk|gawk]" 1>&2; exit 1
  5. esac
  6.  
  7. rc=0
  8. new=/tmp/$$.new; old=/tmp/$$.old
  9.  
  10. for file in lib/emptydefn lib/noidx lib/totex lib/tohtml lib/unmarkup shell/nocount shell/noindex shell/nountangle shell/noweb
  11. do
  12.   trap 'rm -f $new $old; exit 1' 1 2 15    # clean up files
  13.   if sed "s/nawk '/$1 '/" < $file >$new;  then
  14.     cp $file $old    # save original file
  15.     trap 'trap "" 1 2 15; cp $old $file    # ignore signals
  16.           rm -f $new $old; exit 1' 1 2 15    # during restore
  17.     cp $new $file
  18.   else
  19.     echo "overwrite: failed to change $file" 1>&2
  20.     rc=1
  21.   fi
  22. done
  23. rm -f $new $old
  24. exit $rc
  25.  
  26.